<%

Function torneio_indefinido_livre (conexao, id_grupo)

		str = "Select id_clube FROM torneios_lista where id_grupo="&id_grupo&" AND id_clube<0 order by id_clube desc"
    	Set rsI = conexao.Execute(str)	
		
		DIM cont
		
		cont =-1
		
		Do while not rsI.eof
		
			If cont=rsI("id_clube") then
			
				cont=cont-1
				
			End If
		
		
		rsI.MoveNExt
		Loop

		torneio_indefinido_livre = cont

End Function




%>
